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eeccetbeesitael sagem Bache 1228 Sep- 1984 93: 98: 33 Disk $vme men AS feac cbt OSRCSWEBOTTOM, BLI; a a) 
mODULE ets oreor tom ( evidanergasaline ten ! Move to perten ai cu creat buffer | 
sDENT = *v04-000' ! File: WFBOTTOM.BLI Edit: JBS1008 
BEGIN 


SOPRA ee CHARA AAAHHARAAAEAAAHEHHHAATHHETERETEE KARE eHeeAeKeKeeeekeeeeneeeeeee | 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:@ DIGITAL yt a Al CORPORATION, MAYNARD, MASSACHUSETTS. 
!¥ ALL RIGHTS RESERVED 


!* THIS SOFTWARE IS gt ee UNDER A LICENSE AND MAY BE USED AND corite 
ONLY IN ACCORDANCE WITH THE TERMS C C THE 
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; 1 

; 1 

; 1 * 

; 1 « 

s 1 1 * 

3 1 1 * 

3 1 1 ® 

: 1 1 * 

3 1 1: * 

: 1 0015 1! N * 
; 1 ate 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 1 017 1 !®* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 : a3 : :* TRANSFERRED. * 
Py 7* © 

: 2 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
3 2 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 83 § : ed CORPORATION. * 
4 ‘® * 

$ 00:6 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; oe 5 ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

: y) ! | 
: 60 § 1 !® * 
S 00 8 1 Vee ReR RAE A RARER AAAAAAARAAEAAEAAAAAAAE AAA AERA AAAEAEAAKEREARAAeEe eee 
: 0029 1! 

; 050 1 
3 931 1 f4¢ | 
; Bes ' : fACILITY: FDT == The DEC Standard Editor 
; 4 sit 1 ! ABSTRACT: 

3 5 0035 1! 

3 2038 1! Move to the bottom of the current buffer. 

3 7 0037 1! 

; . sit : ENVIRONMENT: Runs at any access mode - AST reentrant 

; ra re : AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 | 
; 6 R266 1 ! MODIFIED BY: 

; 6 0045 1! 

3; | (46 Bee 1 ! 1-001 = Original. DJS 23-Feb-1981. This module wes created by 

: 45 45 1! onkrecting routine EDTS$wWF BOT from module EDTWF. 

; 6 nk 1! 1- 4 - Regularize headers. JB8S~ 16-Mar-1981 

: 6 1! 1-003 - aber’ on control C. JBS 04-Jan-1982 

; 86448 8 1! I+ - Set Lag if control ¢ actually aborts something. JBS 24-May-1982 

:; 49 049 1 ! 1-005 - are i SSSET_WKLN. JBS 14-Sep-19 

; $9 050 1! = Check control C”about once per second. SMB 17-Sep-1982 

; 3) ith 1 ! 1-007 = Go back to checking controi C every record. STS 20-Sep-198 

3 Ons : 1-008 - Keep TBCB_CUR_LIN accurate, for updating the select range. JBS 28-Dec-1982 

: 54 054 1 
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Nhe +h ila Sab eh gill - bottom of buffer 18-Sep-1984 96:08:33 He 


TSSWF_BOT = move to bottom of buffer 14-Sep-19 DISKSVMGMASTERSCEDT. SRCUWFBOTTOM.BLIG3* (35 
i ZSBTTL “EDTSSWF_SOT = move to bottom of buffer’ 
GLOBAL ROUTINE EDTSS$WF_BOT ! Move to bottom of current buffer 
¢ : NOVALUE = 
664 'e4 


i FUNCTIONAL DESCRIPTION: 

Move to the bottom of the current buffer. 
FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 


EDTSS$A_CUR_BUF 
EDTSSA_WK_BUK 


IMPLICIT OUTPUTS: 
EDTS$$A_CUR_BUF | 
EDT$$G_CC_BONE 
EDTS$$A_WK_LN | 
ROUTINE VALUE: 

NONE | 
SIDE EFFECTS: 
NONE 
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eee 


sites ROUTINE 
DIS$SWF_MAKECUR : NOVALUE, | 
EDTSSRD_NXTLN, 
EDTSSCHR_CC; ! Check for a control C 
EXTERNAL | 
DT$SA_CUR_BUF : REF TBCB_BLOCK, ' Current text buffer control block 
DTS$$A_WK_BUK nter to current bucket 
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: ! Point 
REF BCOCK CWF_BUKT_SIZE, BYTE] FIELD (WFB_FIELDS), : 
' Set to 1 if control C actually aborts something 


ee el ee el el el el el eel eel el el cl cel cel el el eel el el el el el eel el cel el cl eel ll eel cell cel eel cecal eel ell ells lt cells cll ells 


DT$$G_CC_DONE, D 
DTSSA_WK_LN : REF LIN_BLOCK; ! Pointer to work Line 

8 LOCA 

9 ONTROL_C, 

29 EAD_STATUS; 

4 '¢ 

6 ! Just read the Last bucket in the buffer, then 

re} read lines until we can't read any more. 
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TTOM = bottom of buffer 16-Sep-1984 96:08:33 VAX-11 Bliss-32 ye Peer Page 4 
_B0T = move to bottom of buffer 14-Sep-1984 7:25:26 DISKSVMSMASTER:CEDT.SRCJWFBOTTOM.BLI;1 (3) 


EDTSSA_CUR BUF CTBCB_CUR_BUKT] = .EDTSSA im BUF CTBCB_LAST BUKT); 
4 
» 
4 
4 
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ego 


— 
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J 
EDTS$A_CUR~BUF [TBCB_CUR_LINJ); 
R BF CTBCB_CUR_BUKTJ); 
= 2 


K 
EDTSSA_CUR_| v EDTS$A_Qk_BUk CwFB_END); 
EDT$SA~CUR-BUF [TBCB-CHAR-POS] = 0; 
EDTS Buk, .EDTSSA_CUR_BUF CTBCB_LINE_ADDR]); 


I 
D.STATUS = EDTSSRD_NXTLN (); 


.READ_STATUS 
EN 


BEGIN | 
CONTROL_C = EDTSSCHK_CC (); | 
IF .CONTROL_C THEN EDTS$$G_CC_DONE = 1; | 
END; 
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END 
UNTIL (.CONTROL_C OR ( NOT .READ_STATUS)); 
END; ! of routine EDTSS$WF_BOT 


a Pi i Pn in in Min, in Hi Mn Bn I i i Din i in Ie De i tn ee hd 


WAAA AAA WIAIGPPPOPONPHNININPON 2 Ss St 


a a a st 8 dd a 8 8 a to 


COOCOCCOCCOCOCOCOCOCOOCOOCOCOOCOOCOCoCO OMmm 
OONAVLS WN" OVOONOUVLS WN -OO0OnNG 


.TITLE EDTSWEBOTTOM EDTS$WFBOTTOM - bottom of buffer 
“IDENT \V04-000\ | 
EXTRN EDTSS$WF_MAKECUR | 
EXTRN EDT$$RD-NXTLN, EDTSS$CHK_CC 

EXTRN EDTS$S$A_CUR_BUF, EDTS$A_QK_BUK 
EXTRN EDT$$G_CC_BONE, EDTSSA_WK_LN | 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


OOFC 00000 .ENTRY EDTS$S$WF_BOT, Save R2,R3,R4,R5,R6,R7 > 0661 
57 000000006 09 9E 00002 MOVAB EDTS$$A_CUR_BUF, R7 : 
o% A 10 6 BO dO00e mova ERENT eeRED we hates 
06 Ab 18 A6 06 ¢8 00011 MOVC3 #6, 24(R6), 6(R6) : 0717 
7E 04 A6 3C 00017 MOVZ2WL 4(R6), -(SP) : 0718 
000000006 00 01 FB 0001 CALLS #1, EDTS$$WF_MAKECUR ; 
20 67 D 900 MOVL EDTS$A_CUR_BUF, RO : 0719 
35 o70000806 RP BR 8s neat to pe 
Py} | 
0c AO B4 000 CLRW =: 12 (ROS : 0720 
000000006 00 51 60 C1 000 ADDL3 (RO), R1, EDTS$A_WK_LN : 0721 
000000006 99 00 FB 0038 1$ CALLS #0, EDTS$RD_NXTLA : 0725 
3 20 DO 0004 MOVL RO, READ STATUS : 
14 53 «EO 004 BLBC READ_STATUS, 2$ ; 0737 
000000006 09 00 i 0048 CALLS #0, EDISSCHK CC ; 0730 | 
OA 35 E 0058 BLBC CONTROL_C, 3$ : 0732 
000000006 00 1 p00 0005 MOVL #1, EDTS$6_CC_DONE : 
03 é E8 0005C 33 BLBS § CONTROL_C,~4$ : 0737 
09 53 €8 0005F 3$ BLBS §_READ_STATUS, 1$ : | 
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; Routine Size: 


: 170 
171 


DISWFBOTTOM = bottom of buffer 
DTSS$WF _BOT 


99 bytes, Routine Base: 


pro 1 
741 1 !<BLF/PAGE> 


= move to bottom of buffer 
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04 00062 4$: 


_EDTSCODE + 0000 


1986 93:38:36 


RET 
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; 0739 


voto 


. SWF BOTTOM +4 oBOT = bottom of buffer 18- sep aah 1 95:08:32 VAX-11 Bliss-32 V4.0-7 


EDTSWFB 
EDTSSwF = move to bottom of buffer - DISKSVMSMASTER:CEDT. she WFBOTTOM.BLI; ye 
173 Me 1 END ! of module EDTSWFBOTTOM 
174 745 «1 
175 744 OQ ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
EDTSCODE 99 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
nepananer anaes Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
“B52 EDUACE FEDT . SAC JEDT 26 325 } 377 39 10 40 00:00.2 
-8255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7? 00:00.1 
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un Time 
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Lines/C 
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COMMAND QUALIFIERS 
/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=L1S$:WFBOTTOM/OBJ=0BJ$:WFBOTTOM MSRC$:WFBOTTOM.BLI/UPDATE=(ENH$: WF BO 


=r 
ee 
wn 
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99 code iy data bytes 


0:11. 
Time: 00:32.8 
PU Min: 384 
/CPU-Min: 1196 
Used: 77 pages 
tion Complete 
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